Ohio COVID Vaccine Rollout

Source: John Hopkins Uni.

### State Data
rm(list=ls())
source("../DATA/movavg.R")
db <- db <- dbConnect(RSQLite::SQLite(),dbname= "../COVID-19-DB/NYTimes.sqlite3")
df <- dbGetQuery(db,"select * from usvaccine")
df <- df[order(df$date),]
df <- subset(df,Province_State =="Ohio" )
df$date <- as.Date(df$date,format="%m-%d-%Y")
buckeye <- df %>% select(date,doses_admin_total,
                           doses_admin_unknown,people_total)

doses_admin_total

p1 <- buckeye %>% ggplot() + geom_area(aes(x=date,y=doses_admin_total,fill="red")) +
  scale_y_continuous(labels=comma) +
  labs(title="doses_admin_total")
ggplotly(p1)

people_total

p2 <- buckeye %>% ggplot() + geom_area(aes(x=date,y=people_total,fill="red")) +
  scale_y_continuous(labels=comma) +
  labs(title="people_total")
ggplotly(p2)